home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / rkpls301.zip / RKPDEMO.ZIP / REGISTER.PAS < prev    next >
Pascal/Delphi Source File  |  1993-03-04  |  1KB  |  62 lines
  1. Program Register;
  2.  
  3. {
  4.  This is a sample programme using RkPlus.  It is a sample of a software
  5.  registration programme that would be used by the user to enter their name
  6.  and registration key and create a key file.  This sample will create
  7.  a key file for the Sample1 programme, using a registration key which
  8.  would be generated by the programmer using the GenKey programme.
  9.  
  10.  Register uses the example encoding unit Encode.
  11. }
  12.  
  13.  
  14. Uses
  15.   Crt,
  16.   RkPlus,
  17.   Encode;
  18.  
  19.  
  20. Const
  21.   MonthNames : Array[1..12] of String[3]
  22.   = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
  23.  
  24.  
  25. Var
  26.   kc          : Char;
  27.  
  28.  
  29. Begin
  30.   SetProgID('Sample');
  31.   SetKeyFile('Sample');
  32.   WriteLn('Register');
  33.   WriteLn('Software Registration Programme for Sample1');
  34.   WriteLn('See RKPLUS.DOC for more info');
  35.   WriteLn;
  36.   Write('Enter name of person to register : ');
  37.   ReadLn(Rkp.Name1);
  38.   WriteLn;
  39.   Write('Enter the registration key : ');
  40.   ReadLn(Rkp.Key);
  41.   WriteLn;
  42.   Rkp.ID := '(c) Serious Cybernetics';
  43.   Rkp.Message := 'Register';
  44.   Rkp.Name2 := '';
  45.   Rkp.Name3 := '';
  46.   Rkp.Level := 0;
  47.   VerifyKey;
  48.   If Not Rkp.Registered then Begin
  49.     Rkp.Level := 1;
  50.     VerifyKey;
  51.   End;
  52.   If Not Rkp.Registered then
  53.     WriteLn('Invalid key!')
  54.   Else Begin
  55.     SaveRegInfo;
  56.     If RkpOK then
  57.       WriteLn(KeyFileName,' created.')
  58.     Else
  59.       WriteLn('Error ',RkpError,' creating file.');
  60.   End;
  61. End.
  62.